home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / ADDONS.ZIP / BAZ_AWAY.TXT next >
Text File  |  1997-01-16  |  5KB  |  77 lines
  1. This script will be a part of []baz▀ot[] v2.╪ made by Ronny 1996⌐
  2.  
  3. This Script has a great away script in it, auto away after 5 minutes of idle and a titlebar script attached to it
  4.  
  5. *** mIRC v4.7 ONLY ***
  6.  
  7. All you need to do is to add the folowing in to the indicated section of tools
  8.  
  9. Away Script Version 1.9 by baz`oo`ka⌐
  10.  
  11. Remote Events:
  12.  
  13. #away disabled
  14. 1:on text:+PAGE:?: {
  15.   ignore -up10 $wildsite
  16.   if (%pager = OFF) { msg $nick sorry my pager is off (type +MSG <text> to leave a msg) }
  17.   elseif (%pager = ON) { beep 20 | timer 1 5 beep 20 | msg $nick i'v been paged.. if i hear ya i'll come }
  18. }
  19. 1:on text:+MSG*:?: { ignore -up10 $wildsite | msg $nick your /msg was saved | write $mircdir $+ msg.txt $nick ( $+ $address $+ ) left the msg: $parm2* }
  20. 1:on text:*:?: { ignore -up10 $wildsite | msg $nick sorry i'm away right now, Reason: Ä $+ [ %away ] $+ Ä (type +MSG <text> to leave a msg) }
  21. 1:on text:*:#:
  22.   if ($me isin $parms) { 
  23.     if (%pager = OFF) { ignore -uc10 $wildsite | notice $nick have you said my name?? i think so.. or maybe i'm wrong??... well anyway.. i'm away since %date !! }
  24.     elseif (%pager = ON) { ignore -uc10 $wildsite | notice $nick have you said my name?? i think so.. or maybe i'm wrong??... well anyway.. i'm away since %date !! | /notice $nick you can page me by typing /CTCP $me PAGE and if i'll hear you i will come :o) }
  25.    }
  26.   else { halt }
  27. }
  28. #away end
  29.  
  30. Remote Commands:
  31.  
  32. #pager start
  33. 1:page: {
  34.   ignore -u10 $wildsite
  35.  if (%pager = OFF) { notice $nick $chr(1) $+ PAGE I am NOT away. } 
  36.  elseif (%pager = ON) { beep 20 | /timer 1 5 /beep 20 | notice $nick $chr(1) $+ PAGE I was paged.. if i hear ya i'll come! | /echo 4 $active *** you have been paged by ╗ $+ $nick $+ ½ *** }
  37. }
  38. #pager end
  39.  
  40. Popups: (any part of the section exept 'query chat')
  41.  
  42. Set Away
  43. .&Away { 
  44.   %away = $$?="Enter Reason" | :start | %pager = $$?="Pager? (On or Off)" | if ((%pager != OFF) && (%pager != ON )) { echo 4 $active *** iNvalid Pager Option Please Chose $colr(12,"On or Off") *** | goto start } | elseif (%pager == OFF) { %ppage = ╗Pager is Off½ | away %away } | elseif (%pager == ON) { %ppage = ╗Pager is On½ | away %away /ctcp $me PAGE to page me | .enable #pager }
  45.   ame Set away at $under($time) , $under($date) Reason: $bold($colr(12,%away)) º $+ %ppage $+ º | .timer14 0 1000 counting | .timer22 off | .enable #away
  46.   .timer69 0 1 inc %counter 1 | .timer23 0 1 titleaway
  47. }
  48. .&Back: { .timer69 off | .timer14 off | .timer 1 3 /ame is back from: $bold($colr(12,%away)) - was away for $under($duration(%counter)) | .disable #away | .disable #pager | set %stop $lines($mircdir [ $+ [ msg.txt ] ] ) | if (%stop != $null) { echo 4 ** you have %stop messages. ** } | else { echo 4 ** You have No messages. ** } | unset %counter %away | .timer 1 2 away | idler | .timer23 off }
  49. .&View Msgs:/set %msg 0 | if (%stop != $null) { echo 4 ** Here are your msgs ** | /goto read } | else { echo 4 ** You have no msgs ** | halt } | :read | inc %msg 1 | echo 2  $read -l $+ %msg $mircdir $+ msg.txt | echo 1 . . . | if (%msg >= %stop) { halt } | else goto read
  50. .&Delete Msgs:/remove $mircdir $+ msg.txt | unset %stop
  51.  
  52. Aliases:
  53.  
  54. under return $chr(31) *1 $chr(31)
  55. bold return $chr(2) *1 $chr(2)
  56. colr if ($2* != $null) { return $chr(3) $+ $1 $+ *2 $+ $chr(3) }
  57. idler { 
  58.   .timer22 0 1 if ($idle == 300) { idleaway  } 
  59.   else { halt } 
  60. }
  61. wontstop { if (%away != $null) { .timer14 0 1000 counting | .timer69 0 1 inc %counter 1 | .timer23 0 1 titleaway } | else { idler } }
  62. idleaway {
  63.   ame Set Away at $under($time) , $under($date) $bold($colr(12,Auto Away On Idle.))  | .timer22 off | .timer14 0 1000 counting | %ppage = ╗Pager is ?┐½ | %away = Auto Away On Idle | %pager = OFF
  64.   .enable #away | .timer23 0 1 titleaway | .timer69 0 1 inc %counter 1 
  65. }
  66. counting ame is away for $under($duration(%counter))  %ppage
  67. titleaway titlebar *«* $+ Away For $duration(%counter) $+ *«*
  68. titleSyCh :start | %BigQ = $$?="Reset The On Line Timer? (Y or N)" | if ((%BigQ != Y) && (%BigQ != N)) { echo 4 -a *** iNvalid Pager Option Please Chose $colr(12,"Y or N") *** | goto start } | elseif (%BigQ == Y ) { unset %titleSecs | echo 4 -s ** ReSeting On Line Timer ** } | elseif (%BigQ == N) { echo 4 -s ** Resuming On Line Timer ** } | .timer264 0 1 inc %titleSecs | .timer265 0 1 titleperf | .timer99 0 3600 ding
  69. titleperf {
  70.   if (%away == $null) { titlebar *«*I Have Been On Line For $duration(%titlesecs) $+ *«* }
  71.   else { halt }
  72. }
  73. ding { ame I Have Been On Line For $duration(%titleSecs) }
  74.  
  75. Perform:
  76.  
  77. /titleSyCh | wontstop